home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _comms / comms / _riscbbs / !RiscBBS_BBS_Guess < prev    next >
Encoding:
Text File  |  1991-07-23  |  1.1 KB  |  23 lines
  1. {#more 0 attr 0 7 cls}
  2. {attr 4 3 cll}                     >>> The Fabulous Arcland Guessing Game <<<{attr 0 7}
  3. {@eval 0 `RND MOD 2000` &if `V0<0` @eval 0 `V0*(-1)`}
  4. {@eval 1 0}
  5. I think of a number between {fg 6}0{fg 7} and {fg 6}1999{fg 7} and you must try to guess it 
  6. within {fg 2}10{fg 7} tries... If you succeed, you user-level will go up {fg 6}5{fg 7} units...
  7. if you fail, it'll go down {fg 6}5{fg 7} units !!!
  8.  
  9. Do you want to continue? (Y/n) {@yesno 1 2 &if V2=0 ~goto +finito}
  10.  
  11. Succes !!!{~label loop #echo 1 @eval 1 `V1+1` &if `V1>=11` ~goto +fail}
  12.  
  13. {fg 3 @send `Try ` fg 1 @print 1 fg 3 @send `, make a guess: ` attr 4 7 field 4 @read 2 4 attr 0 6}
  14. {#echo 0 &if `V2=-1` ~eof}
  15. {&if `"V2"=""` @send `Invalid try, you must enter a number!` ~goto loop}
  16. {&if `V2<V0` @send `No, it's greater!` ~goto loop}
  17. {&if `V2>V0` @send `No, it's smaller!` ~goto loop}
  18. {#echo 1 &if SYSOP=0 level +5}
  19. Bravo !!! You've guessed it! Your user-level is now {@eval 0 LEVEL @print 0} !!!
  20. {~eof ~label fail &if SYSOP=0 level -5}
  21. What a pity, you failed! Your user-level is now {@eval 0 LEVEL @print 0} !!!
  22. {~label finito}
  23.